use Person::Student;
package Person::TAStudent;

our @ISA = qw(Person::Student);
my @subs;
sub new{
	my ($class) = @_;
	my $self = $class->SUPER::new($_[1], $_[2], $_[3], $_[4]);
	$subs = $_[5];
	$self->{assisting} = @subs;
	bless $self, $class;
	return $self;
}

sub toString{
	$self = shift;
	$self->first_name();
	$self->last_name();
	$self->cpr();
	$self->gender();
	print "Assisten on:\n";
	foreach(@{$subs}){print "\t$_\n";}
}
1;
